home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 10 / logoprg / axis.log next >
Encoding:
Text File  |  1986-04-18  |  1.9 KB  |  114 lines
  1. TO REMARKS.TXT
  2. ; *********************************************
  3. ;* AXIS.LOG
  4. ; * 
  5. ; * THE PROCEDURES CONTAINED IN THIS FILE
  6. ; * ARE WRITTEN IN THE (16 BIT) ATARI LOGO
  7. ; * PROGRAMMING LANGUAGE AND WERE WRITTEN
  8. ; * BY MICHAEL A. SQUIRE, A MEMBER OF THE
  9. ; * DAYTON (OHIO) ATARI COMPUTER USERS GROUP
  10. ; * (DATARI), AND DEBORAH BEAMS ON AUGUST 13,
  11. ; * 1985.  PERMISSION IS GRANTED TO USE THE CONTENTS
  12. ; * OF THIS FILE IN THE PUBLIC DOMAIN PROVIDED
  13. ; * THAT THIS PROCEDURE, "REMARKS.TXT", IS NOT
  14. ; * ERASED OR DELETED FROM THE FILE.
  15. ; *
  16. ; *********************************************
  17. END
  18.  
  19. TO Y.MARK.POS
  20. FD 10
  21. SETH 270
  22. FD 2
  23. BACK 5
  24. FD 3
  25. SETH 0
  26. END
  27.  
  28. TO Y.MARK.NEG
  29. FD 10 SETH 270 FD 2 BACK 5
  30. FD 3 SETH 180
  31. END
  32.  
  33. TO X.MARK.POS
  34. FD 10 SETH 0 FD 2 BACK 5
  35. FD 3 SETH 90
  36. END
  37.  
  38. TO X.MARK.NEG
  39. FD 10 SETH 0
  40. FD 2 BACK 5 FD 3 SETH 270
  41. END
  42.  
  43. TO Y.AXIS
  44. SETH 180
  45. REPEAT 4 [Y.MARK.NEG]
  46. Y.MARK.NEG.FAT
  47. REPEAT 4 [Y.MARK.NEG]
  48. Y.MARK.NEG.FAT
  49. Y.MARK.NEG
  50. FD 9 SETH 0 FD 119
  51. REPEAT 4 [Y.MARK.POS]
  52. Y.MARK.POS.FAT
  53. REPEAT 4 [Y.MARK.POS]
  54. Y.MARK.POS.FAT
  55. Y.MARK.POS
  56. Y.MARK.POS
  57. END
  58.  
  59. TO X.AXIS
  60. SETH 270
  61. REPEAT 4 [X.MARK.NEG]
  62. X.MARK.NEG.FAT
  63. REPEAT 4 [X.MARK.NEG]
  64. X.MARK.NEG.FAT
  65. REPEAT 4 [X.MARK.NEG]
  66. X.MARK.NEG.FAT
  67. FD 8 SETH 90 FD 158
  68. REPEAT 4 [X.MARK.POS]
  69. X.MARK.POS.FAT
  70. REPEAT 4 [X.MARK.POS]
  71. X.MARK.POS.FAT
  72. REPEAT 4 [X.MARK.POS]
  73. X.MARK.POS.FAT
  74. X.MARK.POS
  75. FD 1
  76. END
  77.  
  78. TO AXIS
  79. CS SETPC 1
  80. X.AXIS
  81. HOME
  82. Y.AXIS
  83. HOME
  84. END
  85.  
  86. TO X.MARK.POS.FAT
  87. FD 10 SETLINE [1 5 1]
  88. SETH 0 FD 2 BACK 5 FD 3
  89. SETH 90 SETLINE [1 1 1]
  90. END
  91.  
  92. TO X.MARK.NEG.FAT
  93. FD 10 SETLINE [1 5 1]
  94. SETH 0 FD 2 BACK 5
  95. FD 3 SETH 270
  96. SETLINE [1 1 1]
  97. END
  98.  
  99. TO Y.MARK.POS.FAT
  100. FD 10 SETLINE [1 5 1]
  101. SETH 270 FD 2 BACK 5 FD 3
  102. SETH 0 SETLINE [1 1 1]
  103. END
  104.  
  105. TO Y.MARK.NEG.FAT
  106. FD 10 SETLINE [1 5 1]
  107. SETH 270 FD 2 BACK 5 FD 3
  108. SETH 180 SETLINE [1 1 1]
  109. END
  110.  
  111. MAKE "GFILL "FALSE
  112. MAKE "Y 47
  113. MAKE "X -58
  114.